home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TJTOT10B.ARJ
/
DEMO.EXE
/
arc
/
DEMIO9.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
436b
|
24 lines
program DemoIONine;
{demIO9 - single date field input}
Uses DOS, CRT,
totIO1, totIO2, totDate;
Var
Birthday: DateIOOBJ;
begin
ClrScr;
with Birthday do
begin
Init(35,5,MMDDYY);
SetLabel('When is your next birthday? ');
Activate;
Writeln;
writeln('You entered the julian date ',GetValue);
writeln('i.e. ',JultoStr(GetValue,MMDDYY));
Done;
end;
end.